home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / misc / fcxref.lha / FCXRef / Rexx / help_ced.rexx next >
OS/2 REXX Batch file  |  1999-02-08  |  610b  |  39 lines
  1. /* start this from CED */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg CEDport
  6. if CEDport = '' then CEDport = address()
  7.  
  8. address value CEDport
  9.  
  10. getword
  11. func=result
  12.  
  13. if ~show(ports, FASTCREF) then
  14.  do
  15.   ADDRESS 'COMMAND' 'run >nil: Work:C/cref/FastCXRef XREFFILE=Work:C/cref/full3xref'
  16.   ADDRESS 'COMMAND' 'SYS:REXXC/WaitForPort FASTCREF'
  17.  end
  18.  
  19. ADDRESS FASTCREF
  20.  
  21. SEARCH stem a. WORD func
  22.  
  23. address value CEDport
  24.  
  25. if a.filename ~= "NONE" then do
  26.     if a.filename ~= "OFF" then do
  27.  
  28.         OW a.filename
  29.         STATUS EDITABLE
  30.         if result = 1 then 'EDITABLE FILE'
  31.         'EXPAND VIEW'
  32.         LL a.linenumber
  33.  
  34.     end
  35. end
  36. else do
  37.     OKAY1 func "not found"
  38. end
  39.